Attribute VB_Name = "Module1"
Public Function ValiText(KeyIn As Integer, ValidateString As String, Editable As Boolean) As Integer
   Dim ValidateList As String
   Dim KeyOut As Integer
   If Editable = True Then
      ValidateList = UCase(ValidateString) & Chr(8) & Chr(13)
   Else
      ValidateList = UCase(ValidateString)
   End If
   
   If InStr(1, ValidateList, UCase(Chr(KeyIn)), 1) > 0 Then
      KeyOut = KeyIn
   Else
      KeyOut = 0
      Beep
   End If
   
   ValiText = KeyOut
End Function

